SPEAKING OF TALKING MACHINES 


PRACTICAL EXAMPLE ON THE APPLE II 
PERSONAL COMPUTER 


With the improvement of the average life expectancy and the increasing number of machines available 
at low or medium prices it is now unthinkable not to believe the need for a virtual assistant (artificial 
intelligence Chatbot). hospitalization, always having a nurse available can be impossible, but by 
supporting her with a virtual assistant or robot many of these problems would be solved. Evenina 
simple family or for pure fun or entertainment or need to free the home library a chatbot becomes 
indispensable. 


After talking about the need we may have of a virtual assistant, we now approach how to make one of 
our own, with sentences we have written or copied here and there. 


So let's take our notepad from Windows and write the following sentences: 


1 PR# 3: HOME PRINT 
sso" PRINT TINA" 
2 PRINT " ” 
3. PRINT " RANDOM MULTIPLE ANSWER INTERACTIVE" 
4 PRINT " CHATBOT" 
S- (PRING oem 
6 PRINT " DEVELOPED BY" 
7 PRINT "" 
9 PRINT " MATTEO TREVISAN AKA TOOLKITMAN": PRINT 


----": FOR I = 1 TO 5000: NEXT I: 


Here we will first of all present our Chatbot with the PRINT "" command and putting "" the phrase we 
like best, example 


RANDOM MULTIPLE ANSWER INTERACTIVE headed CHATBOT etc. 


Then we will move on to cleaning up the screen and giving the writing speed with the following 
commands: 


HOME : SPEED= 150 


the following step and let us recognize with the next string: 


10 PRINT "": PRINT "TINA READY TO CHAT...": PRINT 


Ws --PRENE VTP 


YOUR NAME 


PLEASE": 


INPUT AS: GOTO 333 


Then we will write what is the randomness with which the questions arise and we 


should indicate how many are wi 


Ll se) INT (100 * RND (1)) 


at shes 


th a corresponding number and a random command: 


When we are going to write all the following questions within an expression: 


20 BS = "TINA>": IF J = 1 THEN PRINT BS;"ARE YOU OK?": PRINT AS: INPUT ">";FS: 
GOTO 135 

21 BS = "TINA>": IF J = 2 THEN PRINT BS;"ARE ELECTION NEXT YEAR?": PRINT AS: 
INPUT ">";FS: GOTO 137 

22 BS = "TINA>": IF J=3 THEN PRINT BS;"DO YOU 3D PRINT?": PRINT AS: INPUT ">";FS: 
GOTO 139 

23 BS = "TINA>": IF J = 4 THEN PRINT BS;"ARE YOU SEEK?": PRINT AS: INPUT ">";FS: 
GOTO 141 

25 BS = "TINA>": IF J=5 THEN PRINT BS;"DO YOU LIKE COMPUTERS?": PRINT AS: INPUT 
"S";FS: GOTO 143 

26 BS = "TINA>": IF J = 6 THEN PRINT BS;"WERE THE DEMONSTRATION IN THE CENTER 
OF TOWN?": PRINT AS: INPUT ">";FS: GOTO 145 

27 BS = "TINA>": IF J = 7 THEN PRINT BS;"IS GOLD MINED IN CANADA?": PRINT AS: 
INPUT ">";FS: GOTO 147 

28 BS = "TINA>": IF J = 8 THEN PRINT BS;"DO THEY SMOKE?": PRINT AS: INPUT ">";FS: 
GOTO 149 

29 BS = "TINA>": IF J = 9 THEN PRINT BS;"COULD THIS BE TRUE?": PRINT AS: INPUT 
">";FS: GOTO 151 

30 BS = "TINA>": IF J = 10 THEN PRINT BS;"DO YOU LIVE IN THE WORLD?": PRINT AS: 
INPUT ">";FS$: GOTO 153 

31 BS = "TINA>": IF J = 11 THEN PRINT BS;"DOES HE WANTS TO STAY?": PRINT AS: 
INPUT ">";F$: GOTO 155 

32 BS = "TINA>": IF J=12 THEN PRINT BS;"DO YOU KNOW HOW TO PROGRAM COMPUTERS?": 
PRINT AS: INPUT ">";FS: GOTO 157 

33 BS = "TINA>": IF J = 13 THEN PRINT BS;"WAS THIS IDEA INTERESTING?": PRINT 
AS: INPUT ">";FS: GOTO 159 

34 BS = "TINA>": IF J=14 THEN PRINT BS;"DO YOU HAVE AN HOBBY?": PRINT AS: INPUT 
">";FS: GOTO 161 

35 BS = "TINA>": IF J = 15 THEN PRINT BS;"AM I GOING WITH YOU AND TOM?": PRINT 
AS: INPUT ">";FS: GOTO 163 

36 BS = "TINA>": IF J = 16 THEN PRINT BS;"ARE FLOWERS GROWN HERE?": PRINT AS: 
INPUT ">";F$: GOTO 165 

37 BS = "TINA>": IF J = 17 THEN PRINT BS;"DOES IT RAIN HERE?": PRINT AS: INPUT 
">";FS: GOTO 167 

38 BS = "TINA>": IF J = 18 THEN PRINT BS;"SHOULD THEY STOP?": PRINT AS: INPUT 
">";FS: GOTO 169 

39 BS = "TINA>": IF J=19 THEN PRINT BS;"DO YOU LIKE FOOTBALL?": PRINT AS: INPUT 
">";FS$: GOTO 171 

40 BS = "TINA>": IF J = 20 THEN PRINT BS;"HAVE THE BOYS EATEN?": PRINT AS: INPUT 
">";FS: GOTO 173 

41 BS = "TINA>": IF J = 21 THEN PRINT BS;"DO YOU PLAY SPORT?": PRINT AS: INPUT 
"S";FS: GOTO 175 

42 BS = "TINA>": IF J = 22 THEN PRINT BS;"WERE THEY HAPPY?": PRINT AS: INPUT 
">";FS: GOTO 177 

43 BS = "TINA>": IF J = 23 THEN PRINT BS;"DO YOU LIKE APPLE COMPUTERS?": PRINT 
AS: INPUT ">";FS: GOTO 179 

44 BS = "TINA>": IF J = 24 THEN PRINT BS;"IS SHE WORKING TODAY?": PRINT AS: INPUT 


">";FS: GOTO 181 


45 BS = "TINA>": 


"S";FS: GOTO 183 


46 BS = "TINA>": 


">";FS: GOTO 185 
47 BS = "TINA>": 
GOTO 187 
48 BS = "TINA>": 
">";FS: GOTO 189 


49 BS = "TINA>": 


">";FS: GOTO 191 


50 BS = "TINA>": 
INPUT ">";F$: GOTO 193 
51 BS = "TINA>": 
ASt. INDUT “S"7PS3 
52 BS = "TINA>": 
A$: INPUT ">";FS: 


53 BS = "TINA>": 


A$: INPUT ">";FS: 
54° By = MTINAS"s 
INPUT ">";F$: GOTO 201 

IF J = 35 THEN 


55 BS = "TINA>": 
"S";FS: GOTO 203 


56 BS = "TINA>": 


"S";FS: GOTO 205 


57 BS = "TINA>": 
">";FS: GOTO 207 
58 BS = "TINA>": 
INPUT ">";F$: GOTO 209 
59 BS = "TINA>": 


AS: INPUT ">";FS: 


60 BS = "TINA>": 
">";FS: GOTO 213 

61 BS = "TINA>": 
GOTO 215 


62 BS = "TINA>": 
INPUT ">";FS: GOTO 217 
IF J = 43 THEN 


63 BS = "TINA>": 
GOTO 219 


64 BS = "TINA>": 


">";FS: GOTO 221 
65 BS = "TINA>": 
GOTO 223 


66 BS = "TINA>": 
AGs: INPUT 5" prs 


67 BS ="TINA>": 
GOTO 227 


68 BS = "TINA>": 
AG? INPUT “o"7PS: 


69 BS = "TINA>": 
PRINT A$: INPUT 


70 BS = "TINA>": 


"S";FS: GOTO 233 


71 BS = "TINA>": 
GOTO 235 
IF J = 52 THEN 


INPUT ">";FS: 


72 BS = "TINA>": 


Woe rs: <GOTO> 237 


IF J = 25 THEN 


= 26 THEN 


IF J = 27 THEN 


IF J = 28 THEN 


IF J = 31 THEN 
GOTO 195 


GOTO 197 


IF J = 33 THEN 
GOTO 199 


IF J = 36 THEN 


GOTO 211 
IF J = 40 THEN 


IF J = 41 THEN 


= 42 THEN 


IF J = 44 THEN 
IF J = 45 THEN 
= 46 THEN 
GOTO 225 
IF J = 47 THEN 
= 48 THEN 
GOTO 229 

IF J = 49 THEN 
IF J = 50 THEN 


= 51 THEN 


PRINT BS;"MAY I HI 


PRINT BS;"WAS THE BOOK READ?": 


PRINT BS;"DID THE 


PRINT BS;"DO YOU WANT A DRINK?": 


PRINT AS: INPUT 


75 


KEY WORK?": 


PRINT AS: INPUT 


ELP YOU?": PRINT AS: INPUT ">";FS: 


PRINT AS: INPUT 


PRINT BS;"DO YOU DRINK COFFE 


= 29 THEN PRINT BS;"CAN THE DOG SWIM?": PRINT AS: INPUT 
= 30 THEN PRINT BS;"DO YOU HAVE A NICKNAME?": PRINT AS: 
PRINT BS;"AM I AT THE CORRECT LOCATION?": PRINT 

32 THEN PRINT BS;"DO YOU WANT TO LISTEN MUSIC?": PRINT 
PRINT BS;"ARE WE SEEING A PLAY TOMORROW?": PRINT 

= 34 THEN PRINT BS;"HAS YOUR BROTHER LEFT?": PRINT AS: 


r 


1E?": PRINT AS: INPUT 


r 


PRINT BS; "HAV. 


PRINT BS;"CAN W 


r 


PRINT BS;"DO YOU WANT A SNAK?": PRINT AS: INPUT 

= 37 THEN PRINT BS;"AM I YOUR FRIEND?": PRINT AS: INPUT 
38 THEN PRINT BS;"ARE YOU YOUNGER THAN ME?": PRINT AS: 
39 THEN PRINT BS;"ARE THE KEYS UNDER THE BOOK?": PRINT 
PRINT BS;"DO YOU SPEAK ENGLISH?": PRINT AS: INPUT 


= 
py 


YOU DRIVEN BEFORE?": 


Gl 


STAY 2.2% 


PRINT BS;"DOES SH 


E WORK HERE?": 


PRINT BS;"ARE YOU TIR 
PRINT BS;"IS THIS A GOOD RESTAURANT?": 


PRINT BS;"ARE YOU SL 


r 


GOTO 231 


PRINT BS;"WAS HIS HOUSE ON AN ISLAND?": 


PRINT BS$;"DO YOU HAV! 


PRINT BS;"WAS IT RAINING?": PRINT AS: INPUT ">";FS: 


PRINT AS: 


PRINT AS: INPUT ">";FS: 


PRINT AS: INPUT 


ED?": PRINT AS: INPUT ">";FS: 


PRINT 


EPY?": PRINT AS: INPUT ">";FS: 


PRINT 


E A BOYFRIEND/GIRLFRIEND?": 


PRINT BS; "WHERE 


PRINT BS;"HAS TH 


PRINT BS;"COULD THIS BE TRUE?": 


EY PLAYING?": PRINT AS: INPUT 


PARTY STARTED?": PRINT AS: 


PRINT AS: INPUT 


73 BS = "TINA>": IF J = 53 THEN PRINT BS;"CAN I GO WITH YOU?": PRINT AS: INPUT 
"S";SFS: GOTO 239 
74 BS = "TINA>": IF J = 54 TH 
AS: INPUT ">";FS: GOTO 241 
75 BS = "TINA>": IF J = 55 THEN PRINT BS;"HAVE YOU EVER S 
AS: INPUT ">";FS: GOTO 243 
76 BS = "TINA>": IF J = 56 THEN PRINT BS;"IS SHE WORKING VERY HARD?": PRINT AS: 
INPUT ">";FS: GOTO 245 
77 BS = "TINA>": IF J = 57 THEN PRINT BS;"DOES THAT TASTE OKAY?": PRINT A$: INPUT 
"S";SFS: GOTO 247 
78 BS = "TINA>": IF J = 58 THEN PRINT BS;"HAVE THEY EATEN YET?": PRINT A$: INPUT 
"S";SFS: GOTO 249 
79 BS = "TINA>": IF J = 59 THEN PRINT BS$;"COULD YOU HELP ME LIFT THIS?": PRINT 
AS: INPUT ">";FS: GOTO 251 
80 BS = "TINA>": IF J = 60 THEN PRINT BS;"SHOULD I OPEN THE WINDOW?": PRINT AS: 
INPUT ">";FS: GOTO 253 
81 BS = "TINA>": IF J = 61 THEN PRINT BS;"DO YOU USALLY WALK TO WORK?": PRINT 
AS: INPUT ">";FS: GOTO 255 
82 BS = "TINA>": IF J = 62 THEN PRINT B$;"DO YOU LIKE DISCO MUSIC IN THE 70S?": 
PRINT AS: INPUT ">";FS: GOTO 257 
83 BS = "TINA>": IF J = 64 THEN PRINT BS;"IS SHE YOUR SISTER?": PRINT AS: INPUT 
"S";SFS: GOTO 259 
84 BS = "TINA>": IF J = 65 THEN PRINT BS;"IS THIS PHONE CALL BEING RECORDED?": 
PRINT AS: INPUT ">";FS: GOTO 261 
85 BS = "TINA>": IF J = 66 THEN PRINT BS;"HAS THE GARDEN BEEN LOOKED AFTER WHILE 
YOU WERE AWAY?": PRINT AS: INPUT ">";FS: GOTO 263 
86 BS = "TINA>": IF J=67 THEN PRINT BS$;"SHOULD WE HAVE BEEN WRITING THIS DOWN?": 
PRINT AS: INPUT ">";FS: GOTO 265 


eal 
Zz 


PRINT BS;"DO YOU LIKE VANILLA ICE CREAM?": PRINT 


T. 


‘EN A GHOST?": PRINT 


E 


r 


87 BS = "TINA>": IF J = 68 THE PRINT BS;"HAVE YOU FOUND THE KEYS?": PRINT AS: 
INPUT ">";FS: GOTO 267 

88 BS = "TINA>": IF J = 69 THEN PRINT BS;"IS THE WEATHER NICE IN IRELAND IN 
WINTER?": PRINT AS: INPUT ">";FS: GOTO 269 

89 BS = "TINA>": IF J = 70 THEN PRINT BS;"WAS SHE ANGRY WHEN YOU TOLD ME HER 
ABOUT THE ACCIDENT?": PRINT AS: INPUT ">";FS: GOTO 271 

90 BS = "TINA>": IF J = 71 THEN PRINT BS;"HAVE YOU AN IDENTITY CARD?": PRINT 
AS: INPUT ">";FS: GOTO 273 

91 BS = "TINA>": IF J = 72 THEN PRINT BS;"DID YOU HAVE THE GLASS WITH YOU WHEN 
YOU LEFT THE CAR?": PRINT AS: INPUT ">";FS: GOTO 275 

92 BS = "TINA>": IF J = 73 THEN PRINT BS;"WOULD YOU LIKE TO PLAY TENNIS WITH 


ME LATER?": PRINT AS: INPUT ">";FS: GOTO 277 
93 BS = "TINA>": IF J = 74 THEN PRINT BS;"HAVE YOU SEEN MATT?": PRINT AS: INPUT 
"S";FS: GOTO 279 
94 BS = "TINA>": IF J = 75 THEN PRINT BS;"CAN I GROW POTATOES IN A POT?": PRINT 
AS: INPUT ">";FS: GOTO 281 
95 BS = "TINA>": IF J = 76 THEN PRINT BS;"WILL YOU BE GOING TO RAYAN'S PARTY?": 
PRINT AS: INPUT ">";FS: GOTO 283 


96 BS = "TINA>": IF J = 77 THEN PRINT BS;"DO YOU KNOW TINA?": PRINT AS: INPUT 
">";FS: GOTO 285 
97 BS = "TINA>": IF J = 78 THEN PRINT BS;"WE'VE KNOWN EACH OTHER FOR YEARS. WE 


WENT TO THE SAME SCHOOL?": PRINT AS: INPUT ">";FS: GOTO 287 
98 BS = "TINA>": IF J = 79 THEN PRINT BS;"DO YOU HAVE THE THRILLS LATEST ALBUM?": 
PRINT AS: INPUT ">";FS: GOTO 289 
99 BS = "TINA>": IF J = 80 THEN PRINT BS;"HEY, DID YOU GO FISHING TODAY?": PRINT 
AS: INPUT ">";FS: GOTO 291 
100 BS = "TINA>": IF J = 81 THEN PRINT BS;"HAVE YOU HAD BREAKFAST?": PRINT AS: 
INPUT ">";FS$: GOTO 293 
101 BS = "TINA>": IF J = 82 THEN PRINT BS;"IS HE STILL IN BED?": PRINT AS: INPUT 


rT: 


zr 


r 


r 


"S";FS: GOTO 295 


102 BS = "TINA>": IF J = 83 THEN PRINT BS;"ISN'T THAT PAULINE CAR?": PRINT AS: 
INPUT ">";FS: GOTO 297 

103 BS = "TINA>": IF J = 84 THEN PRINT BS;"SHOULDN'T BE LEAVING?": PRINT AS: 
INPUT ">";F$: GOTO 299 

104 BS = "TINA>": IF J = 85 THEN PRINT BS;"ISN'T THAT THE OLDEST BUILDING ON 
THIS STREET?": PRINT AS: INPUT ">";FS: GOTO 301 

105 BS = "TINA>": IF J = 86 THEN PRINT BS;"WON'T YOU STAY FOR DINNER?": PRINT 


AS: INPUT ">";FS: GOTO 303 
106 BS = "TINA>": IF J = 87 THEN PRINT BS;"WOULDN'T YOU LIKE ANOTHER COFFEE?": 
PRINT AS: INPUT ">";FS: GOTO 305 
107 BS = "TINA>": IF J = 88 THEN PRINT BS;"CAN'T THE MANAGER DO SOMETHING ABOUT 
THE NOISE?": PRINT AS: INPUT ">";FS: GOTO 307 
108 BS = "TINA>": IF J = 89 THEN PRINT BS;"ARE YOU WORM ENOUGH?": PRINT AS: INPUT 
">";FS: GOTO 309 
109 BS = "TINA>": IF J = 90 THEN PRINT BS;"DID YOU ONCE LIVE IN IRELAND?": PRINT 
AS: INPUT ">";FS: GOTO 311 


zr 


r 


110 BS = "TINA>": IF J = 91 THEN PRINT BS;"YOU'RE LIVING IN BAYSWATER?": PRINT 
AS: INPUT ">";FS: GOTO 313 

111 BS = "TINA>": IF J = 92 THEN PRINT BS;"ARE YOU RENTING YOUR HOUSE?": PRINT 
AS: INPUT ">";FS: GOTO 315 

112 BS = "TINA>": IF J = 93 THEN PRINT BS;"IS IT EXPENSIVE?": PRINT AS: INPUT 
">";FS: GOTO 317 

113 BS = "TINA>": IF J = 94 THEN PRINT BS;"ARE YOU COMING WITH US?": PRINT AS: 


INPUT ">";F$: GOTO 319 

114 BS = "TINA>": IF J = 95 THEN PRINT BS;"HAS HE RETURNED THE CAR?": PRINT AS: 
INPUT ">";FS: GOTO 321 

115 BS = "TINA>": IF J = 96 THEN PRINT BS;"DO YOU LIV 
">";7FS: GOTO 323 

116 BS = "TINA>": IF J= 97 T 
INPUT ">";FS$: GOTO 325 

117 BS = "TINA>": IF J = 98 THEN PRINT BS;"DID YOU MEET JOHN YEASTERDAY?": PRINT 
AS: INPUT ">";FS: GOTO 327 

118 BS = "TINA>": IF J = 99 THEN PRINT BS;"DOES MIKE LIVE WITH YOU?": PRINT AS: 
INPUT ">";F$: GOTO 329 

119 BS = "TINA>": IF J 
">";FS: GOTO 331 


IN US?": PRINT AS: INPUT 


Gl 


EN PRINT BS;"DOES SHE SPEAK ENGLISH?": PRINT AS: 


r 


100 THEN PRINT BS;"WILL YOU HELP ME?": PRINT AS: INPUT 


once this is done we will write the answers, in this case YES OR NO 


135 IF FS = "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 
136 IF FS < > "YES" THEN PRINT "TINA>THIS IS A PROBLEM KEEP CARE": GOTO 11 
137 IF FS = "YES" THEN PRINT "TINA>WE WILL HAVE A GOOD PRESIDENT": GOTO 11 
138 IF FS < > "YES" THEN PRINT "TINA>OK WE ARE JUST HAPPY": GOTO 11 
139 IF FS = "YES" THEN PRINT "TINA>WHAT NICE KIND OF MODELS!": GOTO 11 
140 IF FS < > "YES" THEN PRINT "TINA>OK YOU WILL LEARN WITH TIME": GOTO 11 
141 IF FS = "YES" THEN PRINT "TINA>OK TAKE A PILL": GOTO 11 
142 IF FS < > "YES" THEN PRINT "TINA>GREAT STAY FIT!": GOTO 11 
143 IF FS = "YES" THEN PRINT "TINA>I ALSO LIKE IT": GOTO 11 
144 IFFS< >"YES" THEN PRINT "TINA>YOU HAVE TO LEARN ABOUT IT THEY ARE SMART": 
GOTO 11 
145 IF FS = "YES" THEN PRINT "TINA>I WILL COME SEE IT WITH YOU": GOTO 11 
146 IF FS < > "YES" THEN PRINT "TINA>OK IT IS IN THE BORDERLAND": GOTO 11 
147 IF FS = "YES" THEN PRINT "TINA>HO KEEP SOME GOLD!": GOTO 11 
148 IF FS < > "YES" THEN PRINT "TINA>I WILL TRY IN ANOTHER PLACE": GOTO 11 
149 IF FS = "YES" THEN PRINT "TINA>I SEE THEY SMOKE A LOT": GOTO 11 
150 IF FS < > "YES" THEN PRINT "TINA>OH BETTER FOR THEIR HEALTH": GOTO 11 


151 IF FS = "YES" THEN PRINT "TINA>I SEE WITH MY EYES": GOTO 11 

152 IF FS < > "YES" THEN PRINT "TINA>OH AND WHAT IT CAN BE! WE COULD ONLY 
IMAGINE": GOTO 11 

153 IF FS = "YES" THEN PRINT "TINA>NICE WORLD": GOTO 11 

154 IF FS < > "YES" THEN PRINT "TINA>YOU ARE FROM MARS": GOTO 11 

155 IF FS = "YES" THEN PRINT "TINA>ALSO I WANT TO STAY": GOTO 11 

156 IF FS < > "YES" THEN PRINT "TINA>OH NO! I WOULD LOVE TO STAY": GOTO 11 

157 IF FS = "YES" THEN PRINT "TINA>GREAT I LOVE THEM!": GOTO 11 

158 IF FS < > "YES" THEN PRINT "TINA>OH! CAN BE I CAN TEACH YOU THE BASE OF 
PROGRAMMING": GOTO 11 

159 IF FS = "YES" THEN PRINT "TINA>IT'S VERY INTERESTING": GOTO 11 

160 IF FS < > "YES" THEN PRINT "TINA>IT WAS INTERESTING...": GOTO 11 

161 IF FS = "YES" THEN PRINT "TINA>IT IS A WAY TO KEEP YOU OCCUPIED": GOTO 11 

162 IF FS < > "YES" THEN PRINT "TINA>OK YOU ARE TOO BUSY AT WORK": GOTO 11 

163 IF FS = "YES" THEN PRINT "TINA>WE WILL DO A NICE TRIP": GOTO 11 

164 IF FS < > "YES" THEN PRINT "TINA>BETTER TO STAY AT HOME": GOTO 11 

165 IF FS = "YES" THEN PRINT "TINA>NICE FLOWERS": GOTO 11 

166 IF FS < > "YES" THEN PRINT "TINA>OH NO! I LOVE FLOWERS SO MUCH": GOTO 11 

167 IF FS = "YES" THEN PRINT "TINA>I WILL TAKE AN UMBRELLA!": GOTO 11 

168 IF FS < > "YES" THEN PRINT "TINA>OK I WILL GO TO THE BALCONY TO TAKE SUN": 
GOTO 11 

169 IF FS = "YES" THEN PRINT "TINA>YES THEY SHOULD!": GOTO 11 

170 IF FS < > "YES" THEN PRINT "TINA>I ACCEPT YOUR ANSWER": GOTO 11 

171 IF FS = "YES" THEN PRINT "TINA>I ALSO LOVE FOOTBALL": GOTO 11 

172 IF FS < > "YES" THEN PRINT "TINA>I UNDERSTAND, BUT I LOVE TO PLAY IT": 
GOTO 11 

173 IF FS = "YES" THEN PRINT "TINA>GREAT, A GOOD MEAL IS ALWAISE WELL 
ACCEPTED! ": GOTO 11 

174 IF FS < > "YES" THEN PRINT "TINA>OH NO THEY MUST EAT AS SOON AS POSSIBLE" 
GOTO 11 

175 IF FS = "YES" THEN PRINT "TINA>IT IS GOOD TO PLAY SPORT": GOTO 11 

176 IF FS < > "YES" THEN PRINT "TINA>YOU SHOULD THINK ABOUT PLAYING IT": GOTO 
Ld. 

177 IF FS = "YES" THEN PRINT "TINA>THIS IS REALLY GOOD! ": GOTO 11 

178 IF FS < > "YES" THEN PRINT "TINA>THEY HAVE TO GO UP!": GOTO 11 

179 IF FS = "YES" THEN PRINT "TINA>YES! IT WAS THE FIRST TO MAKE IT PERSONAL! ": 
GOTO 11 

180 IF FS < > "YES" THEN PRINT "TINA>OH! NO IT HAS A SO SWEET NAME!": GOTO 
11 

181 IF FS = "YES" THEN PRINT "TINA>SHE IS WORKING HARD": GOTO 11 

182 IF FS < > "YES" THEN PRINT "TINA>SHE MUST WORK! ": GOTO 11 

183 IF FS = "YES" THEN PRINT "TINA>YES IT WAS BEAUTIFUL I THINK! ": GOTO 11 

184 IF FS < > "YES" THEN PRINT "TINA>NOT A GOOD BOOK I THINK!": GOTO 11 

185 IF FS = "YES" THEN PRINT "TINA>GREAT, I WILL GO HOME!": GOTO 11 

186 IF FS < > "YES" THEN PRINT "TINA>OK I WILL BUY ANOTHER ONE! ": GOTO 11 

187 IF FS = "YES" THEN PRINT "TINA>OK! I WILL DO MY BEST!": GOTO 11 

188 IF FS < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME!": GOTO 11 
189 IF FS = "YES" THEN PRINT "TINA>IT IS VERY GOOD!": GOTO 11 

190 IF FS < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME! ": GOTO 11 
191 IF FS = "YES" THEN PRINT "TINA>IT IS A SWIMMER!": GOTO 11 

192 IF FS < > "YES" THEN PRINT "TINA>OK IT WILL STAY GROUNDED!": GOTO 11 
193 IF FS = "YES" THEN PRINT "TINA>NICE NICKNAME!": GOTO 11 

194 IF FS < > "YES" THEN PRINT "TINA>OH NO! YOU NEED ONE TO SURF THE WEB": 
GOTO 11 

195 IF FS = "YES" THEN PRINT "TINA>OK I WILL COME THERE SOON": GOTO 11 

196 IF FS < > "YES" THEN PRINT "TINA>YOU WILL FIND IT!": GOTO 11 

197 IF FS = "YES" THEN PRINT "TINA>THIS IS POP MUSIC": GOTO 11 


198 IFFS< >"YES" THEN PRINT "TINA>DONT YOU LIKE MUSIC? IT RELAX YOUR MIND!": 
GOTO 11 

199 IF FS = "YES" THEN PRINT "TINA>GREAT I WILL BE THERE!": GOTO 11 

200 IF FS < > "YES" THEN PRINT "TINA>OH NO! I WOULD LOVE TO SEE ONE": GOTO 
11 

201 IF FS = "YES" THEN PRINT "TINA>OH I'M SORRY": GOTO 11 

202 IF FS < > "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 

203 IF FS = "YES" THEN PRINT "TINA>ALSO I LOVE IT": GOTO 11 

204 IF FS < > "YES" THEN PRINT "TINA>YOU WILL DRINK SOMETHING OTHER": GOTO 
aL: 

205 IF FS = "YES" THEN PRINT "TINA>I ALSO WANT ONE": GOTO 11 

206 IF FS < > "YES" THEN PRINT "TINA>OK YOU WILL DRINK SOMETHING": GOTO 11 
207 IF FS = "YES" THEN PRINT "TINA>I LIKE THIS!": GOTO 11 

208 IF FS < > "YES" THEN PRINT "TINA>OK I RESPECT YOUR THINKING": GOTO 11 
209 IF FS = "YES" THEN PRINT "TINA>ONLY 5 YEARS YOUNGER!": GOTO 11 

210 IF FS < > "YES" THEN PRINT "TINA>I DOESNT SEE THE DIFFERENCE": GOTO 11 
211 IF FS = "YES" THEN PRINT "TINA>OK I WILL TAKE IT!": GOTO 11 

212 IF FS < > "YES" THEN PRINT "TINA>OH I WILL SEARCH FOR IT AS SOON AS 
POSSIBLE! ": GOTO 11 

213 IF FS = "YES" THEN PRINT "TINA>GREAT I CAN UNDERSTAND YOU!": GOTO 11 
214 IF FS < > "YES" THEN PRINT "TINA>OH WE CAN TRY TO TRANSLATE SOMETHING!": 
GOTO 11 

215 IF FS = "YES" THEN PRINT "TINA>SOMETHIMES IT MUST RAIN!": GOTO 11 

216 IF FS < > "YES" THEN PRINT "TINA>OH NO! MY POOR FLOWERS NEEDS WATER!": 
GOTO 11 

217 IF FS = "YES" THEN PRINT "TINA>OK YOU HAVE PRACTICE!": GOTO 11 

218 IF FS < > "YES" THEN PRINT "TINA>THERE IS ALWAYSE A FIRST TIME.": GOTO 
11 

219 IF FS = "YES" THEN PRINT "TINA>OK THANK YOU! ": GOTO 11 

220 IF FS < > "YES" THEN PRINT "TINA>OH NOOOO!": GOTO 11 

221 IF FS = "YES" THEN PRINT "TINA>GREAT! I WILL MEET HER!": GOTO 11 

222 IF FS < > "YES" THEN PRINT "TINA>OK I WILL CHECK!": GOTO 11 

223 IF FS = "YES" THEN PRINT "TINA>TAKE A NAP!": GOTO 11 

224 IF FS < > "YES" THEN PRINT "TINA>OK, WILL YOU COME TO ME!": GOTO 11 
225 IF FS = "YES" THEN PRINT "TINA>OK I WILL ORDER SOMETHING!": GOTO 11 

226 IF FS < > "YES" THEN PRINT "TINA>OH NO! I WAS ADVICE BY A FRIEND": GOTO 
11 

227 IF FS = "YES" THEN PRINT "TINA>OK BETTER STAY UP!": GOTO 11 

228 IF FS < > "YES" THEN PRINT "TINA>TAKE A NAP": GOTO 11 

229 IF FS = "YES" THEN PRINT "TINA>NICE I WILL GO TO VISIT IT!": GOTO 11 
230 IF FS < > "YES" THEN PRINT "TINA>OK I UNDERSTAND": GOTO 11 

231 IF FS = "YES" THEN PRINT "TINA>YOU ARE NOT ALONE!": GOTO 11 

232 IF FS < > "YES" THEN PRINT "TINA>I'M SURE YOU WILL FIND ONE SOONER OR 
LATER": GOTO 11 

233 IF FS = "YES" THEN PRINT "TINA>I WILL GO SEE THEM! ": GOTO 11 

234 IF FS < > "YES" THEN PRINT "TINA>THERE WILL BE A NEXT TURN, I HOPE": GOTO 
11 

235 IF FS = "YES" THEN PRINT "TINA>Ok I WiLL TAKE PART!": GOTO 11 

236 IF FS < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME": GOTO 11 
237 IF FS = "YES" THEN PRINT "TINA>OK I SEE!": GOTO 11 

238 IF FS < > "YES" THEN PRINT "TINA>SOMETHING NOTHING SEEMS TRUE": GOTO 11 
239 IF FS = "YES" THEN PRINT "TINA>OK COME WITH ME!": GOTO 11 

240 IF FS < > "YES" THEN PRINT "TINA>I HOPE IT WILL BE FOR ANOTHER TIME": GOTO 
Tit: 

241 IF FS = "YES" THEN PRINT "TINA>GREAT I ALSO LIKE IT!": GOTO 11 

242 IF FS < > "YES" THEN PRINT "TINA>OK YOU LIKE LEMON!": GOTO 11 

243 IF FS = "YES" THEN PRINT "TINA>OH IT WAS SCARY I THINK!": GOTO 11 
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| TO SEE ONE!": 
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IS TIRED": 
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GOTO 11 


‘R ONE": GOTO 11 


11 


ERY SOON!": 


GOTO 11 


GOTO 11 
H AIR!": 


GOTO 11 


GOTO 11 
70'S MUSIC": 
90'S DISCO!": 


GOTO 11 


GOTO 11 


ENTION": 


TO KNOW!": 
GOTO 11 
, COME THERE!": 


GOTO 11 


EASY! ": 
i GO. VESiT. eros 


"'TINA>I WILL 
"TINA>O 


K THIS IS 
ER YOU HAV 
TINA>YOU MUST 
E TO KNOW! ": 


DO IT SOON! ": 
GOTO 11 
D IT SOON! ": 
GOTO 
E FOR ANOTHER TIME": 
0 FROM ME": 
] IM": GOTO 11 
IT WAS POSSIBLE": 
TRY AGAIN!": 


UNHAPPY!": 
R ALSO": 
R SOON! 


El 


THOUGHT WI NOW BOTH": 
[ LISTEN IT": GOTO 11 
LL BUY IT": 
HING WITH YOU": 
U CAN GO TOMORROW!": 


HAPPY YOU HA 


Dee ale 

SOON": GOTO 11 
GOTO 11 

P SOON": 


"TINA>I THO 


UGHT SO!": 


: GOTO 11 
| ATTENTION! ": 


GOTO 11 
GOTO 11 


TTER PLACE! ": 
EAR THIS!": 


GOTO 11 
GOTO 11 


EB PLAY!": 


GOTO 11 


GOTO 11 
GOTO 11 


ER OR LAT 


GOTO 11 


GOTO 11 
E ALOT OUTSID 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 
GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


GOTO 11 


298 IF FS < > "YES" THEN PRINT "TINA>IT WAS SIMILAR": GOTO 11 

299 IF FS = "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

300 IF FS < > "YES" THEN PRINT "TINA>OK!": GOTO 11 

301 IF FS = "YES" THEN PRINT "TINA>I THINK SO BY THE MAP!": GOTO 11 

302 IF FS < > "YES" THEN PRINT "TINA>I WAS WRONG! ": GOTO 11 

303 IF FS = "YES" THEN PRINT "TINA>WE WILL EAT TOGHETER!": GOTO 11 

304 IF FS < > "YES" THEN PRINT "TINA>OK! IT WILL BE FOR THE NEXT TIME": GOTO 
11 

305 IF FS = "YES" THEN PRINT "TINA>I LIKE IT TOO!": GOTO 11 

306 IF FS < > "YES" THEN PRINT "TINA>OK BETTER A GOOD GLASS OF WATER": GOTO 
11 

307 IF FS = "YES" THEN PRINT "TINA>GOOD FOR MY EARS!": GOTO 11 

308 IF FS < > "YES" THEN PRINT "TINA>OH NO! I CAN'T SLEEP": GOTO 11 

309 IF FS = "YES" THEN PRINT "TINA>GREAT, I FEEL YOU! ": GOTO 11 

310 IF FS < > "YES" THEN PRINT "TINA>I'M SORRY!": GOTO 11 

311 IF FS = "YES" THEN PRINT "TINA>I CAN REMEMBER! ": GOTO 11 

312 IF FS < > "YES" THEN PRINT "TINA>OH! I THOUGHT I LIVED HERE": GOTO 11 
313 IF FS = "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

314 IF FS < > "YES" THEN PRINT "TINA>YOU LIVE IN PICCADILLY CIRCUS": GOTO 11 
315 IF FS = "YES" THEN PRINT "TINA>SEEMS A NICE PRICE I WILL RENT IT!": GOTO 
LT 

316 IF FS < > "YES" THEN PRINT "TINA>OK NO PROBLEM!": GOTO 11 

317 IF FS = "YES" THEN PRINT "TINA>I WILL BUY A LOT OF IT!": GOTO 11 

318 IF FS < > "YES" THEN PRINT "TINA>OK I WILL NOT BUY IT": GOTO 11 

319 IF FS = "YES" THEN PRINT "TINA>WE WILL DO A NICE TRIP!": GOTO 11 

320 IF FS < > "YES" THEN PRINT "TINA>OK IT WILL BE FOR ANOTHER TIME": GOTO 
11 

321 IF FS = "YES" THEN PRINT "TINA>GREAT I WILL TAKE IT!": GOTO 11 

322 IF FS < > "YES" THEN PRINT "TINA>BETTER HE KEEP IT": GOTO 11 

323 IF FS = "YES" THEN PRINT "TINA>I ALSO LIVE THERE! ": GOTO 11 

324 IF FS < > "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

325 IF FS = "YES" THEN PRINT "TINA>GREAT I UNDERSTAND HER LANGUAGE!": GOTO 11 
326 IF FS < > "YES" THEN PRINT "TINA>OH NO! I CANT SPEAK WITH HER": GOTO 11 
327 IF FS = "YES" THEN PRINT "TINA>IT WAS A NICE MEETING I THINK! ": GOTO 11 
328 IF FS < > "YES" THEN PRINT "TINA>OH SORRY! I WAS CONFUSED": GOTO 11 
329 IF FS = "YES" THEN PRINT "TINA>GREAT TO KNOW, I WILL MEET HIM!!": GOTO 11 
330 IF FS < > "YES" THEN PRINT "TINA>I THOUGHT SO": GOTO 11 

331 IF FS = "YES" THEN PRINT "TINA>THANK YOU!": GOTO 11 

332 IF FS < > "YES" THEN PRINT "TINA>OK,I WILL FIND A SOLUTION BY MYSELF!": 


GOTO 11 
This way our chatbot will be able to ask and answer yes or no. 
Then, if we wanted to, we could add a simple drawing in GR graphics in this case: 


333 GR 
334 COLOR= 8 


335 HLIN 5,27 AT 8 
336 VLIN 5,27 AT 6 
337 HLIN 5,27 AT 23 
338 VLIN 27,5 AT 26 
339 COLOR= 12 
340 PLOT 7,10 
341 P 

P 


LOT 16,22 
342 LOT 25,10: GOTO 11 
If we want to copy and paste the following code from notepad to Applewin simply 
once copied from notepad we press SHIFT Insert on the keyboard after resetting 
Apple ii. We can first modify the sentences "" to our liking. 


To re-write it to disk we should have previously loaded DOS 3.3 and copied and 


pasted from notepad and then written to the INIT prompt 


Complete Code: 


(program name). 


1 PR# 3: HOME PRINT 

—Sea hs. (PRAENIE TINA" 

2 PRINT " be 

3. PRINT " RANDOM MULTIPLE ANSWER INTERACTIVE" 

4 PRINT " CHATBOT" 

ot SPRINT 

6 PRINT " DEVELOPED BY" 

7 PRINT "" 

9 PRINT " MATTEO TREVISAN AKA TOOLKITMAN": PRINT 
----":; FOR I = 1 TO 5000: NEXT I: HOME : SPEED= 150 

10 PRINT "": PRINT "TINA READY TO CHAT ": PRINT 

----":; PRINT "TYPE YOUR NAME PLEASE": INPUT AS: GOTO 333 

11 J = INT (100 * RND (1)) + 1: 

20 BS = "TINA>": IF J = 1 THEN PRINT BS;"ARE YOU OK?": PRINT AS: INPUT ">";FS: 
GOTO 135 

21 BS = "TINA>": IF J = 2 THEN PRINT BS;"ARE ELECTION NEXT YEAR?": PRINT AS: 
INPUT ">";FS: GOTO 137 

22 BS = "TINA>": IF J=3 THEN PRINT BS;"DO YOU 3D PRINT?": PRINT AS: INPUT ">";FS: 
GOTO 139 

23 BS = "TINA>": IF J = 4 THEN PRINT BS;"ARE YOU SEEK?": PRINT AS: INPUT ">";FS: 
GOTO 141 

25 BS = "TINA>": IF J=5 THEN PRINT BS;"DO YOU LIKE COMPUTERS ?": PRINT AS: INPUT 
"S";FS: GOTO 143 

26 BS = "TINA>": IF J = 6 THEN PRINT BS;"WERE THE DEMONSTRATION IN THE CENTER 
OF TOWN?": PRINT AS: INPUT ">";FS: GOTO 145 

27 BS = "TINA>": IF J = 7 THEN PRINT BS;"IS GOLD MINED IN CANADA?": PRINT AS: 
INPUT ">";FS: GOTO 147 

28 BS = "TINA>": IF J = 8 THEN PRINT BS;"DO THEY SMOKE?": PRINT AS: INPUT ">";FS: 
GOTO 149 

29 BS = "TINA>": IF J = 9 THEN PRINT BS;"COULD THIS BE TRUE?": PRINT AS: INPUT 
">";FS: GOTO 151 

30 BS = "TINA>": IF J = 10 THEN PRINT BS;"DO YOU LIVE IN THE WORLD?": PRINT AS: 
INPUT ">";FS$: GOTO 153 

31 BS = "TINA>": IF J = 11 THEN PRINT BS;"DOES HE WANTS TO STAY?": PRINT AS: 
INPUT ">";F$: GOTO 155 

32 BS = "TINA>": IF J=12 THEN PRINT BS;"DO YOU KNOW HOW TO PROGRAM COMPUTERS?": 
PRINT AS: INPUT ">";FS: GOTO 157 

33 BS = "TINA>": IF J = 13 THEN PRINT BS;"WAS THIS IDEA INTERESTING?": PRINT 
AS: INPUT ">";FS: GOTO 159 

34 BS = "TINA>": IF J=14 THEN PRINT BS;"DO YOU HAVE AN HOBBY?": PRINT AS: INPUT 
">";FS: GOTO 161 

35 BS = "TINA>": IF J = 15 THEN PRINT BS;"AM I GOING WITH YOU AND TOM?": PRINT 
AS: INPUT ">";FS: GOTO 163 

36 BS = "TINA>": IF J = 16 THEN PRINT BS;"ARE FLOWERS GROWN HERE?": PRINT AS: 
INPUT ">";F$: GOTO 165 

37 BS = "TINA>": IF J = 17 THEN PRINT BS;"DOES IT RAIN HERE?": PRINT AS: INPUT 
">";FS: GOTO 167 

38 BS = "TINA>": IF J = 18 THEN PRINT BS;"SHOULD THEY STOP?": PRINT AS: INPUT 


">";FS: GOTO 169 

39 BS = "TINA>": IF J=19 THEN PRINT BS$;"DO YOU LIKE FOOTBALL?": PRINT AS: INPUT 
">";FS: GOTO 171 

40 BS = "TINA>": IF J = 20 THEN PRINT BS;"HAVE THE BOYS EATEN?": PRINT AS: INPUT 
">";FS: GOTO 173 

41 BS = "TINA>": IF J = 21 THEN PRINT BS;"DO YOU PLAY SPORT?": PRINT AS: INPUT 
">";FS: GOTO 175 

42 BS = "TINA>": IF J = 22 THEN PRINT BS;"WERE THEY HAPPY?": PRINT AS: INPUT 
">";FS: GOTO 177 

43 BS = "TINA>": IF J = 23 THEN PRINT BS;"DO YOU LIKE APPLE COMPUTERS?": PRINT 
AS: INPUT ">";FS: GOTO 179 

44 BS = "TINA>": IF J = 24 THEN PRINT BS;"IS SHE WORKING TODAY?": PRINT AS: INPUT 
">";FS: GOTO 181 

45 BS = "TINA>": IF J = 25 THEN PRINT BS;"WAS THE BOOK READ?": PRINT AS: INPUT 
">";FS: GOTO 183 

46 BS = "TINA>": IF J = 26 THEN PRINT BS;"DID THE KEY WORK?": PRINT AS: INPUT 
"S";FS: GOTO 185 

47 BS = "TINA>": IF J=27 THEN PRINT BS;"MAY I HELP YOU?": PRINT AS: INPUT ">";FS: 
GOTO 187 

48 BS = "TINA>": IF J = 28 THEN PRINT BS;"DO YOU WANT A DRINK?": PRINT AS: INPUT 
">";FS: GOTO 189 

49 BS = "TINA>": IF J = 29 THEN PRINT BS;"CAN THE DOG SWIM?": PRINT AS: INPUT 
">";FS: GOTO 191 

50 BS = "TINA>": IF J = 30 THEN PRINT BS;"DO YOU HAVE A NICKNAME?": PRINT AS: 
INPUT ">";FS$: GOTO 193 

51 BS = "TINA>": IF J = 31 THEN PRINT BS;"AM I AT THE CORRECT LOCATION?": PRINT 
AS: INPUT ">";FS: GOTO 195 

52 BS = "TINA>": IF J = 32 THEN PRINT B$;"DO YOU WANT TO LISTEN MUSIC?": PRINT 
AS: INPUT ">";FS: GOTO 197 

53 BS = "TINA>": IF J = 33 THEN PRINT BS;"ARE WE SEEING A PLAY TOMORROW?": PRINT 
AS: INPUT ">";FS: GOTO 199 

54 BS = "TINA>": IF J = 34 THEN PRINT BS;"HAS YOUR BROTHER LEFT?": PRINT AS: 
INPUT ">";FS: GOTO 201 

55 BS = "TINA>": IF J = 35 THEN PRINT BS;"DO YOU DRINK COFFEE?": PRINT AS: INPUT 
"S";EFS: GOTO 203 

56 BS = "TINA>": IF J = 36 THEN PRINT BS;"DO YOU WANT A SNAK?": PRINT AS: INPUT 
"S";FS: GOTO 205 

57 BS = "TINA>": IF J = 37 THEN PRINT BS;"AM I YOUR FRIEND?": PRINT AS: INPUT 
">";ES: GOTO 207 

58 BS = "TINA>": IF J = 38 THEN PRINT BS;"ARE YOU YOUNGER THAN ME?": PRINT AS: 
INPUT ">";FS$: GOTO 209 

59 BS = "TINA>": IF J = 39 THEN PRINT BS;"ARE THE KEYS UNDER THE BOOK?": PRINT 
AS: INPUT ">";FS: GOTO 211 

60 BS = "TINA>": IF J = 40 THEN PRINT BS;"DO YOU SPEAK ENGLISH?": PRINT AS: INPUT 
"S";FS: GOTO 213 

61 BS ="TINA>": IF J=41 THEN PRINT BS;"WAS IT RAINING?": PRINT AS: INPUT ">";FS: 
GOTO 215 

62 BS = "TINA>": IF J = 42 THEN PRINT BS;"HAVE YOU DRIVEN BEFORE?": PRINT AS: 
INPUT ">";FS: GOTO 217 

63 BS = "TINA>": IF J = 43 THEN PRINT BS;"CAN WE STAY?": PRINT AS: INPUT ">";FS: 
GOTO 219 

64 BS = "TINA>": IF J = 44 THEN PRINT BS;"DOES SHE WORK HERE?": PRINT AS: INPUT 
"S";EFS: GOTO 221 

65 BS = "TINA>": IF J=45 THEN PRINT BS;"ARE YOU TIRED?": PRINT AS: INPUT ">";FS: 
GOTO 223 

66 BS = "TINA>": IF J = 46 THEN PRINT BS;"IS THIS A GOOD RESTAURANT?": PRINT 
AS: INPUT ">";FS: GOTO 225 


67 BS = "TINA>": 


GOTO 227 


68 BS = "TINA>": 


AS: INPUT "> 
69 BS = "TIN 
PRINT AS: IN 


"lES: 
AS™s 
PUL‘! 


70 BS = "TINA>": 


IF J = 47 THI 


EN 
Ei 


PRINT BS;"ARE YOU SL 


IF J = 48 THEN 


GOTO 229 
IF J = 49 TH 
>";FS: GOTO 


EN 
231 


IF J = 50 THEN 


"S";FS: GOTO 233 
71 BS = "TINA>": IF J = 51 
INPUT ">";FS: GOTO 235 


72 BS = "TINA>": 


">"2FS: GOTO 237 
73 BS = "TINA>": 
">";FS: GOTO 239 


74 BS = "TINA>": 


AS: INPUT "5"; FS: 
75 BS = "TINA>": 
A$: INPUT ">";FS: 


76 BS = "TINA>": 


INPUT ">";FS 


: GOTO 245 


77 BS = "TINA>": 


"S";FS: GOTO 


247 


78 BS = "TINA>": 


"S";FS: GOTO 


249 


79 BS = "TINA>": 


AS: INPUT "> 


"-ES: 


80 BS = "TINA>": 


INPUT ">"; FS 


81 BS = "TINA>": 


AS: INPUT "> 


"lES: 


82 BS = "TINA>": 


PRINT AS: IN 


PUT ">";FS: GOTO 


83 BS = "TINA>": 


">";FS: GOTO 


299 


84 BS = "TINA>": 


PRINT AS: INPUT ">";FS: GOTO 


85 BS = "TINA>": 


YOU WERE AWA 


86 BS = "TINA>": 


PRINT AS: IN 


Wey 


IF J = 67 THI 
PUT ">";FS: GOTO 


IF J = 52 THEN 


IF J=53T 


IF J = 54 TH 


THEN 


HEN 


GOTO 241 


ie 
Zz 


IF J = 55 THEN 


GOTO 243 


IF J = 56 THEN 


IF J = 57 THEN 


IF J = 58 TH 


EE Or = (S9oF 
GOTO 251 


EN 
aaa 


EN 
E 


IF J = 60 THEN 
: GOTO 253 


IF J = 61 THEN 


GOTO 255 


IF J = 62 THEN 


IF J = 64 THEN 


IF J=65T 


IF J = 66 TH 
PRINT AS: I 


257 


HEN 
261 
EN 


NPUT ">";FS: GOTO 263 


87 BS = "TINA>": IF J = 68 T 
INPUT ">";FS: GOTO 267 

88 BS = "TINA>": IF J = 69 
WINTER?": PRINT AS: INPUT "> 

89 BS = "TINA>": IF J = 70 
ABOUT THE ACCIDENT?": PRINT 

90 BS = "TINA>": IF J = 71 
AS: INPUT ">";FS: GOTO 273 

91 BS = "TINA>": IF J = 72 T 
YOU LEFT THE CAR?": PRINT AS 

92 BS = "TINA>": IF J = 73 


ME LATER?": 


93 BS = "TINA>": 


">";FS: GOTO 


279 


94 BS = "TINA>": 


AS: INPUT "> 


WRG. s 


95 BS = "TINA>": 


PRINT AS: INPUT 
IF J = 74 THEN 


IF J = 75 THEN 


GOTO 281 


IF J = 76 THEN 


EN 
at 


265 
HE 


TH 


TH 
AS: 
THEN 


HEN 
: IN 
THEN 
WS 


PRINT BS;"SHOULD W 


EN 
".ES: 
EN 


zr 


EPY?": PRINT AS: INPUT ">";FS: 


PRINT BS;"WAS HIS HOUSE ON AN ISLAND?": PRINT 


PRINT BS;"DO YOU HAVE A BOYFRIEND/GIRLFRIEND?": 


PRINT BS;"WHERE THEY PLAYING?": 


PRINT AS: INPUT 


PRINT BS;"HAS THE PARTY STARTED?": PRINT AS: 


PRINT BS$;"COULD THIS BE TRUE?": 


PRINT BS;"CAN I GO WITH YOU?": 


PRINT BS;"DO YOU LIKE VANILLA ICE CREAM?": PRINT 


PRINT AS: INPUT 


PRINT AS: INPUT 


PRINT BS;"HAVE YOU EVER S 


r 


EN A GHOST?": PRINT 


PRINT BS;"IS SHE WORKING VERY HARD?": PRINT AS: 


PRINT BS;"DOES THAT TASTE OKAY?": 


PRINT BS;"HAVE THEY EATEN YET?": 


PRINT AS: INPUT 


PRINT AS: INPUT 


PRINT BS;"COULD YOU HELP ME LIFT THIS?": PRINT 


PRINT BS;"SHOULD I OPEN THE WINDOW?": PRINT AS: 


PRINT BS;"DO YOU USALLY WALK TO WORK?": PRINT 


E 


PRINT BS;"DO YOU LIKE DISCO MUSIC IN THE 70S?": 


PRINT BS;"IS SHE YOUR SISTER?": 


PRINT AS: INPUT 


BEING RECORDED?": 


PRINT BS;"IS THIS PHONE CALL B 


PRINT BS;"HAS THE GARDEN BEEN LOOKED AFTER WHILE 


5 


E HAVE BEEN WRITING THIS DOWN?": 


PRINT BS;"HAVE YOU FOUND THE K 


EYS?": PRINT AS: 


PRINT BS;"IS THE WEATHER NIC 


EK IN IRELAND IN 


GOTO 269 


INPUT ">";FS: GOTO 271 
PRINT BS;"HAVE YOU AN ID 


Gl 


PUT ">";FS: GOTO 275 


r 


PRINT BS;"WAS SHE ANGRY WHEN YOU TO 


D ME HER 


NTITY CARD?": PRINT 


PRINT BS;"DID YOU HAVE THE GLASS WITH YOU WHEN 


PRINT BS;"WOULD YOU LIKE TO PLAY TENNIS WITH 


FS: GOTO 277 
PRINT BS;"HAVE YOU S 


r 


EN MATT ?": 


PRINT AS: INPUT 


PRINT BS;"CAN I GROW POTATOES IN A POT?": PRINT 


PRINT BS;"WILL YOU BE GOING TO 


RAYAN'S PARTY?": 


PRINT AS: INPUT ">";FS: GOTO 283 

96 BS = "TINA>": IF J = 77 THEN PRINT BS;"DO YOU KNOW TINA?": PRINT AS: INPUT 
"S";FS: GOTO 285 

97 BS = "TINA>": IF J = 78 THEN PRINT BS;"WE'VE KNOWN EACH OTHER FOR YEARS. WE 
WENT TO THE SAME SCHOOL?": PRINT AS: INPUT ">";FS: GOTO 287 

98 BS = "TINA>": IF J = 79 THEN PRINT BS;"DO YOU HAVE THE THRILLS LATEST ALBUM?": 
PRINT AS: INPUT ">";FS: GOTO 289 

99 BS = "TINA>": IF J = 80 THEN PRINT BS;"HEY, DID YOU GO FISHING TODAY?": PRINT 
AS: INPUT ">";FS: GOTO 291 

100 BS = "TINA>": IF J = 81 THEN PRINT BS;"HAVE YOU HAD BREAKFAST?": PRINT AS: 
INPUT ">";FS$: GOTO 293 

101 BS = "TINA>": IF J = 82 THEN PRINT BS;"IS HE STILL IN BED?": PRINT AS: INPUT 
"S";FS: GOTO 295 

102 BS = "TINA>": IF J = 83 THEN PRINT BS;"ISN'T THAT PAULINE CAR?": PRINT AS: 
INPUT ">";FS: GOTO 297 

103 BS = "TINA>": IF J = 84 THEN PRINT BS;"SHOULDN'T BE LEAVING?": PRINT AS: 
INPUT ">";F$: GOTO 299 

104 BS = "TINA>": IF J = 85 THEN PRINT BS;"ISN'T THAT THE OLDEST BUILDING ON 
THIS STREET?": PRINT AS: INPUT ">";FS: GOTO 301 

105 BS = "TINA>": IF J = 86 THEN PRINT BS;"WON'T YOU STAY FOR DINNER?": PRINT 
AS: INPUT ">";FS: GOTO 303 

106 BS = "TINA>": IF J = 87 THEN PRINT BS;"WOULDN'T YOU LIKE ANOTHER COFFEE?": 
PRINT AS: INPUT ">";FS: GOTO 305 

107 BS = "TINA>": IF J = 88 THEN PRINT BS;"CAN'T THE MANAGER DO SOMETHING ABOUT 
THE NOISE?": PRINT AS: INPUT ">";FS: GOTO 307 

108 BS = "TINA>": IF J = 89 THEN PRINT BS;"ARE YOU WORM ENOUGH?": PRINT AS: INPUT 
">";FS: GOTO 309 

109 BS = "TINA>": IF J = 90 THEN PRINT BS;"DID YOU ONCE LIVE IN IRELAND?": PRINT 
AS: INPUT ">";FS: GOTO 311 

110 BS = "TINA>": IF J = 91 THEN PRINT BS;"YOU'RE LIVING IN BAYSWATER?": PRINT 
AS: INPUT ">";FS: GOTO 313 

111 BS = "TINA>": IF J = 92 THEN PRINT BS;"ARE YOU RENTING YOUR HOUSE?": PRINT 
AS: INPUT ">";FS: GOTO 315 

112 BS = "TINA>": IF J = 93 THEN PRINT BS;"IS IT EXPENSIVE?": PRINT AS: INPUT 
">";FS$: GOTO 317 

113 BS = "TINA>": IF J = 94 THEN PRINT BS;"ARE YOU COMING WITH US?": PRINT AS: 
INPUT ">";F$: GOTO 319 

114 BS = "TINA>": IF J = 95 THEN PRINT BS;"HAS HE RETURNED THE CAR?": PRINT AS: 
INPUT ">";FS: GOTO 321 

115 BS = "TINA>": IF J = 96 THEN PRINT BS;"DO YOU LIVE IN US?": PRINT AS: INPUT 
">";FS: GOTO 323 

116 BS = "TINA>": IF J = 97 THEN PRINT BS;"DOES SHE SPEAK ENGLISH?": PRINT AS: 
INPUT ">";FS$: GOTO 325 

117 BS = "TINA>": IF J = 98 THEN PRINT BS;"DID YOU MEET JOHN YEASTERDAY?": PRINT 
AS: INPUT ">";FS: GOTO 327 

118 BS = "TINA>": IF J = 99 THEN PRINT BS;"DOES MIKE LIVE WITH YOU?": PRINT AS: 
INPUT ">";F$: GOTO 329 

119 BS = "TINA>": IF J = 100 THEN PRINT BS;"WILL YOU HELP ME?": PRINT AS: INPUT 
">";FS: GOTO 331 

135 IF FS = "YES" THEN PRINT "TINA>GREAT TO KNOW": GOTO 11 

136 IF FS < > "YES" THEN PRINT "TINA>THIS IS A PROBLEM KEEP CARE": GOTO 11 

137 IF FS = "YES" THEN PRINT "TINA>WE WILL HAVE A GOOD PRESIDENT": GOTO 11 

138 IF FS < > "YES" THEN PRINT "TINA>OK WE ARE JUST HAPPY": GOTO 11 

139 IF FS = "YES" THEN PRINT "TINA>WHAT NICE KIND OF MODELS!": GOTO 11 

140 IF FS < > "YES" THEN PRINT "TINA>OK YOU WILL LEARN WITH TIME": GOTO 11 

141 IF FS = "YES" THEN PRINT "TINA>OK TAKE A PILL": GOTO 11 

142 IF FS < > "YES" THEN PRINT "TINA>GREAT STAY FIT!": GOTO 11 


143 IF FS = 
144 IFFS< 


GOTO 11 
145 IF FS 
146 IF FS 
147 IF FS 
148 IF FS 
149 IF FS 
150 IF FS 
151 IF FS 
152 IF FS 
IMAGINE": GOTO 1 
153. IF FS 
154 IF FS 
155 IF FS 
156 IF FS 
157 IF FS 
158 IF FS 

PROGRAMMING": 
159 IF FS 
160 IF FS 
161 IF FS 
162 IF FS 
163 IF FS 
164 IF FS 
165 IF FS 


166 IF FS < 


A>I ALSO LIKE 
INT "TINA>YOU HAVE TO 


A>I WI 


A>I SEE THEY 


A>I SEE WITH 
TINA>OH AND W 


"TINA>O 


"TINA>I ALSO LOVE 
TINA>I UNDERSTAND, BUT I LOVE TO PLAY IT": 


"TINA>GR 


NA>IT IS GOO 
TINA>YOU SHOU 


167 IF FS 

168 IF FS < 
GOTO 11 

169 IF FS 

170 IF FS 

171 IF FS 

172 IF FS 
GOTO 11 

173 IF FS 
ACCEPTED!": 

174 IFFS< >"yY 
GOTO 11 

175 IF FS 

176 IF FS < 
led 

177 IF FS = "y 

178 IF FS < 

179 IF FS = 
GOTO 11 

180 IF FS 
ARE 

181 IF FS 

182 IF FS 

183 IF FS 

184 IF FS 

185 IF FS = 

186 IF FS 

187 IF FS 


188 IF FS < 


189 IF FS 


A 


PHaPHoHeHose 


4 
= 
Zz 


r 


Z 


"TINA>IT IS V 


IT": GOTO 11 


LEARN ABOUT IT THEY ARE SMART": 


1 COME 


SEE IT WITH YOU": GOTO 11 


TINA>OK IT IS 


IN THE BORDERLAND": GOTO 11 


A>HO KEEP SOM 


EF GOLD!": GOTO 11 


TINA>I WILL T 


RY IN ANOTHER PLACE": GOTO 11 
SMOKE A LOT": GOTO 11 


TINA>OH BETTE 


A>NICE WORLD" 


TINA>YOU ARE 


TINA>OH NO! I 


A>GREAT I LOV 


R FOR THEIR HEALTH": GOTO 11 
MY EYES": GOTO 11 
HAT IT CAN BE! WE COULD ONLY 


: GOTO 11 


FROM MARS": GOTO 11 
A>ALSO I WANT TO STAY": GOTO 11 
WOULD LOVE TO STAY": GOTO 


E THEM!": GOTO 11 


A>IT IS A WAY TO K 
K YOU A 


"TINA>OH! CAN BE I CAN TEACH YOU THE BASE 
A>IT'S VERY INTERESTING": GOTO 11 
"TINA>IT WAS INTERESTING...": GOTO 11 


r 


RI 


Gl 


TAKE 


TINA>I ACCEPT 


TINA>OH NO THEY 


"TINA>THIS IS REA 


D TO PLAY SPORT": 
LD THINK ABOUT PLAYING IT": 


AN UMBRELLA! ": GOTO 11 


"TINA>YES THEY SHOULD!": GOTO 11 


YOUR ANSWER": GOTO 11 
FOOTBALL": GOTO 11 


KAT, A GOOD MEAL IS ALWAISE WELL 


‘EP YOU OCCUPIED": GOTO 
TOO BUSY AT WORK": GOTO 
"TINA>WE WILL DO A NICE TRIP": GOTO 11 
TINA>BETTER TO STAY AT HOME": GOTO 11 
"TINA>NICE FLOWERS": GOTO 11 
TINA>OH NO! I LOVE FLOWERS SO MUCH": GOTO 11 
"TINA>I WI 
INA>OK I WILL GO TO THE BALCONY TO TAK! 


MUST EAT AS SOON AS POSSIBL 


GOTO 11 


LY GOOD! ": GOTO 11 


"TINA>THEY HAV. 


E TO GO UP!": GOTO 11 


"TINA>YES! IT WAS TH 


"TINA>OH! NO IT HAS A SO SW 


TINA>SHE MUST 


E 


TINA>YES IT WAS BI 


TINA>OK I WIL 


"TINA>OK! I WILL 
TINA>IT WIL 


E FIRST TO MAKE IT P 


r 


Gl 


-RSONAL!": 


r 


TINA>SHE IS WORKING HARD": GOTO 11 


WORK! ": GOTO 11 


iL GO HOME!": GOTO 11 


L BUY ANOTHER ONE! ": GOTO 11 
DO MY BEST! ": GOTO 11 


, BE 


ET NAME! ": 


EAUTIFUL I THINK! ": GOTO 11 
TINA>NOT A GOOD BOOK I THINK!": GOTO 11 
TINA>GREAT, I WI 


FOR THE NEXT TIME! ": GOTO 11 
ERY GOOD!": GOTO 11 


190 IF FS 
191 IF FS 
192 IF FS 
193 IF FS 
194 IF FS 
GOTO 11 

195 IF FS 
196 IF FS 
197 IF FS 
198 IFFS< 
GOTO 11 

199 IF FS 
200 IF FS 
11 

201 IF FS 
202 IF FS 
203 IF FS 
204 IF FS 
11 

205 IF FS 
206 IF FS 
207 IF FS 
208 IF FS 
209 IF FS 
210 IF FS 
211 IF FS 
212 IF FS 
POSSIBLE!": 
213 IF FS 
214 IF FS 
GOTO 11 

215 IF FS 
216 IF FS 
GOTO 11 

217 IF FS 
218 IF FS 
11 

219 IF FS 
220 IF FS 
221 IF FS 
222 IF FS 
223 IF FS 
224 IF FS 
225 IF FS 
226 IF FS 
11 

227 IF FS 
228 IF FS 
229 IF FS 
230 IF FS 
231 IF FS 
232 IF FS 
LATER": GOTO 11 
233. IF -FS = "Y 
234 IF FS < 
11 

235 IF FS = "Y 


ES" 


TH 


r 


A 


wv eZ 


U 


W 


Z 


ZAusaty 


Aya2yue2nuaZ29 


ES" 


W 


Z 


| 


a 


W 


W 


PRINT "TINA>IT WI 
PRINT "TINA>IT IS A 


PRINT " 


PRINT " 


PRINT "TINA>OK I WIL 
TINA>YOU WI 
RINT "TINA>THIS IS 


PRINT " 


PRINT " 


PRINT " 


PRINT " 


PRINT " 


PRINT "TINA>OK I WIL 
PRINT "TINA>OH NO! 


PRINT "TINA>OK BETTE 


PRINT " 


PRINT " 


PRINT " 


PRINT "TINA>I WIL 
INA>THERE WILL 


PRINT "T 


iL 


TINA>OK IT 


PRINT "TINA>NICE NICKNAME! 
TINA>OH NO! 


SWIMM 


Gl 


RI": 


GOTO 11 


USIC": GOTO 


| FOR THE NEXT TIM 
GOTO 11 


STAY GROUNDED!": 


!": GOTO 11 


GOTO 11 


EED ONE TO SURF THE WEB": 
| THERE SOON": GOTO 11 
IND IT!": GOTO 11 


TINA>THERE 


PRINT "TINA>DONT YOU USIC? IT RELAX YOUR MIND!": 
RINT "TINA>GREAT I WI | THERE! ": GOTO 11 

PRINT "TINA>OH NO! LD LOVE TO SEE ONE": GOTO 
RINT "TINA>OH I'M SORRY": GOTO 11 

PRINT "TINA>GREAT TO KNOW": GOTO 11 
RINT "TINA>ALSO I LOVE GOTO 11 

PRINT "TINA>YOU WILL DRINK SOMETHING OTHER": GOTO 
RINT "TINA>I ALSO WANT E": GOTO 11 

PRINT "TINA>OK YOU DRINK SOMETHING": GOTO 11 
RINT "TINA>I LIKE TH : GOTO 11 

PRINT "TINA>OK I RESPECT YOUR THINKING": GOTO 11 
RINT "TINA>ONLY 5 YEARS YOUNGER! ": GOTO 11 

PRINT "TINA>I DOESNT : THE DIFE ENCE": GOTO 11 
RINT "TINA>OK I WIL IT!": GOTO 11 

PRINT "TINA>OH I WILL SEARCH FOR IT AS SOON AS 


PRINT "TINA>OK THANK YOU!": 
[ "TINA>OH NOOOO!": 
PRINT "TINA>GREAT! I WI 


, TINA>OK I WI 
PRINT "TINA>TAK 


Gl 


A NAP! 
TINA>OK, WILI 


R STAY UP!": 
; TINA>TAKE A 
PRINT "TINA>NICE I WIL 


: TINA>OK I UN 
PRINT "TINA>YOU ARE 


= 


TINA>I'M SUR 


YOU 


GOTO 11 


| THEM!": 


: A NEXT TURN, 


PRINT "TINA>Ok I WiLL TA 


GI 


PART! ": 


GOTO 11 


, GO: TO VISIT ITI": 
ERSTAND": 
ALONE!": 


GOTO 11 
GOTO 11 
WILL FIND ONE 


GOTO 11 
I HOPE": 


PRINT "TINA>GREAT I CAN DERSTAND YOU! ": GOTO 11 
PRINT "TINA>OH WE CAN TRY TO TRANSLATE SOMETHING! ": 
PRINT "TINA>SOMETHIMES IT MUST RAIN! ": GOTO 11 
TINA>OH NO! MY POOR FLOWERS NEEDS WATER!": 
PRINT "TINA>OK YOU HAVE PRACTICE!": GOTO 11 


IS ALWAYSE A FIRST TIME.": GOTO 
GOTO 11 
GOTO 11 
MEET HER! ": GOTO 11 
CHECK! ": GOTO 11 
GOTO 11 
YOU COME TO ME!": GOTO 11 
ER SOMETHING! ": GOTO 11 


I WAS ADVICE BY A FRIEND": GOTO 


GOTO 11 


SOONER OR 


GOTO 11 


11 


11 


11 


11 


236 IF FS < > "YES" THEN PRINT "TINA>IT WILL BE FOR THE NEXT TIME": GOTO 11 
237 IF FS = "YES" THEN PRINT "TINA>OK I SEE!": GOTO 11 

238 IF FS < > "YES" THEN PRINT "TINA>SOMETHING NOTHING SEEMS TRUE": GOTO 11 
239 IF FS = "YES" THEN PRINT "TINA>OK COME WITH ME!": GOTO 11 

240 IF FS < > "YES" THEN PRINT "TINA>I HOPE IT WILL BE FOR ANOTHER TIME": GOTO 
241 IF FS = "YES" THEN PRINT "TINA>GREAT I ALSO LIKE IT!": GOTO 11 

242 IF FS < > "YES" THEN PRINT "TINA>OK YOU LIKE LEMON!": GOTO 11 

243 IF FS = "YES" THEN PRINT "TINA>OH IT WAS SCARY I THINK!": GOTO 11 

244 IF FS < > "YES" THEN PRINT "TINA>IT IS NEVER LATE TO SEE ONE!": GOTO 11 
245 IF FS = "YES" THEN PRINT "TINA>GREAT SHE WILL BE WELL PAID! ": GOTO 11 
246 IF FS < > "YES" THEN PRINT "TINA>OH NO! CAN BE SHE IS TIRED": GOTO 11 
247 IF FS = "YES" THEN PRINT "TINA>GOOD! I WANT ONE": GOTO 11 

248 IF FS < > "YES" THEN PRINT "TINA>I WILL TAKE ANOTHER ONE": GOTO 11 

249 IF FS = "YES" THEN PRINT "TINA>THEY ARE FULL!": GOTO 11 

250 IF FS < > "YES" THEN PRINT "TINA>OK THEY WILL EAT VERY SOON!": GOTO 11 
251 IF FS = "YES" THEN PRINT "TINA>IT IS VERY HEAVY!": GOTO 11 

252 IF FS < > "YES" THEN PRINT "TINA>I WILL DO ALONE! ": GOTO 11 

253 IF FS = "YES" THEN PRINT "TINA>I WILL TAKE SOME FRESH AIR!": GOTO 11 
254 IF FS < > "YES" THEN PRINT "TINA>I KNOW THEY SMOKE ALOT OUTSIDE!": GOTO 
255 IF FS = "YES" THEN PRINT "TINA>I WILL COME WITH YOU": GOTO 11 

256 IF FS < > "YES" THEN PRINT "TINA>TAKE THE CAR! ": GOTO 11 

257 IF FS = "YES" THEN PRINT "TINA>ALSO I LIKE 70'S MUSIC": GOTO 11 

258 IF FS < > "YES" THEN PRINT "TINA>I PREFER 90'S DISCO!": GOTO 11 

259 IF FS = "YES" THEN PRINT "TINA>OK I WILL MEET HER": GOTO 11 

260 IF FS < > "YES" THEN PRINT "TINA>OH!I SEE": GOTO 11 

261 IF FS = "YES" THEN PRINT "TINA>GREAT I WILL MAKE ATTENTION": GOTO 11 
262 IF FS < > "YES" THEN PRINT "TINA>BETTER TO KNOW!": GOTO 11 

263 IF FS = "YES" THEN PRINT "TINA>I WILL UNLOCK IT": GOTO 11 

264 IF FS < > "YES" THEN PRINT "TINA>BETTER WE WILL COME THERE! ": GOTO 11 
265 IF FS = "YES" THEN PRINT "TINA>BEST FOR YOU! ": GOTO 11 

266 IF FS < > "YES" THEN PRINT "TINA>OK MAKE MORE ATTENTION!": GOTO 11 

267 IF FS = "YES" THEN PRINT "TINA>GREAT YOU FOUND IT!": GOTO 11 

268 IF FS < > "YES" THEN PRINT "TINA>IT IS NOT SO EASY!": GOTO 11 

269 IF FS = "YES" THEN PRINT "TINA>GREAT TO KNOW I WILL GO VISIT IT!": GOTO 
270 IF FS < > "YES" THEN PRINT "TINA>I WILL GO IN A HOTTER PLACE!": GOTO 11 
271 IF FS = "YES" THEN PRINT "TINA>OH I'M SORRY TO HEAR THIS!": GOTO 11 

272 IF FS < > "YES" THEN PRINT "TINA>OK THIS IS GOOD!": GOTO 11 

273 IF FS = "YES" THEN PRINT "TINA>BETTER YOU HAVE IT!": GOTO 11 

274 IF FS < > "YES" THEN PRINT "TINA>YOU MUST DO IT SOON!": GOTO 11 

275 IF FS = "YES" THEN PRINT "TINA>OK NICE TO KNOW! ": GOTO 11 

276 IF FS < > "YES" THEN PRINT "TINA>I WILL YOU WILL FIND IT SOON!": GOTO 11 
277 IF FS = "YES" THEN PRINT "TINA>GREAT I WILL ENJOY THE PLAY! ": GOTO 11 
278 IF FS < > "YES" THEN PRINT "TINA>IT WILL BE FOR ANOTHER TIME": GOTO 11 
279 IF FS = "YES" THEN PRINT "TINA>OK SAY HELLO FROM ME": GOTO 11 

280 IF FS < > "YES" THEN PRINT "TINA>YOU HAVE TO FIND HIM": GOTO 11 

281 IF FS = "YES" THEN PRINT "TINA>I DIDNT KNOW IT WAS POSSIBLE": GOTO 11 
282 IF FS < > "YES" THEN PRINT "TINA>YOU WILL TRY AGAIN! ": GOTO 11 

283 IF FS = "YES" THEN PRINT "TINA>I'M GOING WITH YOU": GOTO 11 

284 IF FS < > "YES" THEN PRINT "TINA>RAYAN WILL BE UNHAPPY! ": GOTO 11 

285 IF FS = "YES" THEN PRINT "TINA>I WANT TO KNOW HER ALSO": GOTO 11 

286 IF FS < > "YES" THEN PRINT "TINA>YOU WILL KNOW HER SOONER OR LATER": GOTO 
287 IF FS = "YES" THEN PRINT "TINA>WE ARE OLD FRIENDS": GOTO 11 

288 IF FS < > "YES" THEN PRINT "TINA>I THOUGHT WE KNOW BOTH": GOTO 11 


289 IF FS = "YES" THEN PRINT "TINA>GREAT! I WANT TO LISTEN IT": GOTO 11 

290 IF FS < > "YES" THEN PRINT "TINA>OK YOU WILL BUY IT": GOTO 11 

291 IF FS = "YES" THEN PRINT "TINA>GREAT I COME FISHING WITH YOU": GOTO 11 
292 IF FS < > "YES" THEN PRINT "TINA>YOU CAN GO TOMORROW!": GOTO 11 

293 IF FS = "YES" THEN PRINT "TINA>OK, HAPPY YOU HAD IT!": GOTO 11 

294 IF FS < > "YES" THEN PRINT "TINA>YOU WILL HAVE SOON": GOTO 11 

295 IF FS = "YES" THEN PRINT "TINA>LET HER SLEEP!!!": GOTO 11 

296 IF FS < > "YES" THEN PRINT "TINA>OH SHE WOKE UP SOON": GOTO 11 

297 IF FS = "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

298 IF FS < > "YES" THEN PRINT "TINA>IT WAS SIMILAR": GOTO 11 

299 IF FS = "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

300 IF FS < > "YES" THEN PRINT "TINA>OK!": GOTO 11 

301 IF FS = "YES" THEN PRINT "TINA>I THINK SO BY THE MAP!": GOTO 11 

302 IF FS < > "YES" THEN PRINT "TINA>I WAS WRONG! ": GOTO 11 

303 IF FS = "YES" THEN PRINT “"TINA>WE WILL EAT TOGHETER!": GOTO 11 

304 IF FS < > "YES" THEN PRINT "TINA>OK! IT WILL BE FOR THE NEXT TIME": GOTO 
11 

305 IF FS = "YES" THEN PRINT "TINA>I LIKE IT TOO!": GOTO 11 

306 IF FS < > "YES" THEN PRINT "TINA>OK BETTER A GOOD GLASS OF WATER": GOTO 
11 

307 IF FS = "YES" THEN PRINT "TINA>GOOD FOR MY EARS!": GOTO 11 

308 IF FS < > "YES" THEN PRINT "TINA>OH NO! I CAN'T SLEEP": GOTO 11 

309 IF FS = "YES" THEN PRINT "TINA>GREAT, I FEEL YOU! ": GOTO 11 

310 IF FS < > "YES" THEN PRINT "TINA>I'M SORRY!": GOTO 11 

311 IF FS = "YES" THEN PRINT "TINA>I CAN REMEMBER! ": GOTO 11 

312 IF FS < > "YES" THEN PRINT "TINA>OH! I THOUGHT I LIVED HERE": GOTO 11 
313 IF FS = "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

314 IF FS < > "YES" THEN PRINT "TINA>YOU LIVE IN PICCADILLY CIRCUS": GOTO 11 
315 IF FS = "YES" THEN PRINT "TINA>SEEMS A NICE PRICE I WILL RENT IT!": GOTO 
aE 

316 IF FS < > "YES" THEN PRINT "TINA>OK NO PROBLEM!": GOTO 11 

317 IF FS = "YES" THEN PRINT "TINA>I WILL BUY A LOT OF IT!": GOTO 11 

318 IF FS < > "YES" THEN PRINT "TINA>OK I WILL NOT BUY IT": GOTO 11 

319 IF FS = "YES" THEN PRINT "TINA>WE WILL DO A NICE TRIP!": GOTO 11 

320 IF FS < > "YES" THEN PRINT "TINA>OK IT WILL BE FOR ANOTHER TIME": GOTO 
11 

321 IF FS = "YES" THEN PRINT "TINA>GREAT I WILL TAKE IT!": GOTO 11 

322 IF FS < > "YES" THEN PRINT "TINA>BETTER HE KEEP IT": GOTO 11 

323 IF FS = "YES" THEN PRINT "TINA>I ALSO LIVE THERE! ": GOTO 11 

324 IF FS < > "YES" THEN PRINT "TINA>I THOUGHT SO!": GOTO 11 

325 IF FS = "YES" THEN PRINT "TINA>GREAT I UNDERSTAND HER LANGUAGE!": GOTO 11 
326 IF FS < > "YES" THEN PRINT "TINA>OH NO! I CANT SPEAK WITH HER": GOTO 11 
327 IF FS = "YES" THEN PRINT "TINA>IT WAS A NICE MEETING I THINK! ": GOTO 11 
328 IF FS < > "YES" THEN PRINT "TINA>OH SORRY! I WAS CONFUSED": GOTO 11 
329 IF FS = "YES" THEN PRINT "TINA>GREAT TO KNOW, I WILL MEET HIM!!": GOTO 11 
330 IF FS < > "YES" THEN PRINT "TINA>I THOUGHT SO": GOTO 11 

331 IF FS = "YES" THEN PRINT "TINA>THANK YOU!": GOTO 11 

332 IF FS < > "YES" THEN PRINT "TINA>OK,I WILL FIND A SOLUTION BY MYSELF!": 


GOTO 11 
333 GR 
334 C 
335 HLIN 5,27 AT 8 
336 VLIN 5,27 AT 6 

337 HLIN 5,27 AT 23 

338 VLIN 27,5 AT 26 

339. ¢ 

340 P 


341 PLOT 16,22 
342 PLOT 25,10: GOTO 11 


Have fun with your new chatbot. 
Matteo Trevisan aka Toolkitman. 


The book and Software is relesed under GNU Licence 3.0 


